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Ce bulletin est congu avec l'aide du traitement de texte QUILL 


(PSION), de TASPRINT (TASMAN SOFTWARE) et de GDRAW (PSION). 
L'iapression se fait sur une isprisante STAR NY-10, 


а, 


THE END... 
Voilà ceci représente le dernier nuaéro de SIN du apins dans sa 
forae actuelle. 


Le but preaier lorsque que j'ai pensé produire un newsletter pour 
les ordinateurs SINCLAIR était de rapprocher les utilisateurs, en 
publiant leurs prograsses, leurs articles ou leurs questions. 
Cependant la vie étant ce qu'elle est, la collaboration régulière 
de lecteurs n'est pas venue. Et je соввепсе à sanquer de satériel 
{ et de teaps ) surtout pour le 2068, utilisant presque 
exclusiveaent le QL aaintenant. Il est iapossible pour aoi de 
présenter du eatériel "original" pour les 2 ordinateurs. Donc 
j'ai décidé de marquer un temps d'arrêt. Ceux qui sont abonnés 
recevront un chèque représentant le nombre de SIN non-envoyés. 


Je pense revenir bientôt еп collaborant de façon régulière au 
newsletter du MONTREAL SINCLAIR USER GROUP ou en éditant un 
newsletter dédié entièrement au üL. 


Je vous rappelle que le TORONTO TIMEX-SINCLAIR USER GROUP publie 
à chaque aois un excellent NEWSLETTER (SYNC LINK). L'abonnement 
coûte $20.00 pour 1 an (12 numéros). 


À bientôt, 


Horloge Digitale pour Ü 


Voici un programme qui transforme le H en une gigantesque 
horloge digitale. бгасе aux touches fonctions vous pouvez mettre 
une alarme ou tout simplement ajuster l'heure juste. 


100 REMark 309309900 DAKLE K 
110 REMark >> Yves Gagnon 24/01/87 << 


140 : 

150 DEFine РКОСебиге INIT 
160 NODE 4 

170 WINDOW 512,256,0,0 

180 PAPER 0 

190 CES 

209 CSIZE 1,1 

210 PRINT HORLOGE DIGITALE’ 
220 (8116 0,0 

230 END DEFine INIT 

240 : 

250 DEFine PRüCedure Е! (х,у) 
260 BLOCK 100, 100,х,у,0 

270 BLOCK 20,100,х480,у,7 
280 END DEFine El 

290 : 

300 DEFine PROCadure E2(x,y) 
310 BLOCK 100,100,x,y,0 

320 BLOCK 100,20,х,у,7 

330 BLOCK 20,20,x+80,y+20,7 
340 BLOCK 100,20,х,у+40,7 
$50 BLOCK 20,20,х,у+60,7 

360 BLOCK 100, 20,х,у+80,7 
370 END DEFine E2 

380 : 

390 DEFine PRüCedure ES(x,y) 
400 BLOCK 100,100,х,у,0 

410 BLOCK 100,20,x,y,7 

420 BLOCK 20,60, «+80, y4*20,7 
430 BLOCK 100, 20, х,у+В0,7 
440 BLOCK 80, 20,х,у+40,7 
450 END DEFine E3 

460 : 


470 DEFine PRÜCedure Е4(х,у) 


480 BLOCK 100,100, х,у,0 

490 BLOCK 20,80,х,ү,7 

300 BLOCK 20,100,x+80,y,7 - 
310 BLOCK 50, 20,х+20,у+40,7 
320 END DEFine E4 

330 : 


340 DEFine PRÜCedure ES(x, y) 


550 BLOCK 100,100, x, y,0 
560 BLOCK 100,20, x, y,7 

570 BLOCK 20,20, x, y420,7 
580 BLOCK 100,20,x, y440,7 
590 BLOCK 20,20,x480, y+60,7 
&00 BLOCK 100,20, x, y480,7 
b10 END DEFine ES 


620 : 

630 QEFine PRüCedure Е6іх,у) 
540: BLOCK 100,100, x, y,0 

&50 BLOCK 100,20,х,у,7 

550 BLOCK 20,80,x,y*20,7 

570 BLOCK 90,20,x420, y*80,7 
480 BLOCK 20,40, 480, y*40,7 
690 BLOCK 00,20, х+20,у+4),7 
700 END DEFine Её 

719 : 

720 DEFine PROCedure E7lx, y! 
750 BLOCK 100,100, х,у, 0 

740 BLOCK 100,20,х,у,7 

730 BLOCK 20,80,х+80,у+20,7 
760 END DEFine EI 

770 : 

780 DEFine PROCedure EB(x,y) 
790 BLOCK 100,100,x,y,0 

800 BLOCK 100,20,х,у,7 

810 BLOCK 100,20,x,y*40,7 
820 BLOCK 100,20,x,y*80,7 
830 BLOCK 20,100,x,y,7 

840 BLOCK 20,100,x*80, y,7 
850 END DEFine EB 

850 : 


870 DEFine PRüCedure E9(x, y) 
880 BLOCK 100,100, x, y,0 

890 BLOCK 100,20, х,у,7 

900 BLOCK 100,20,x,y*40,7 
910 BLECK 100,20, x, y*80,7 
920 BLOCK 20,100,x*80,y,7 
930 BLOCK 20,50, x, y,7 

940 END DEFine E9 

350 : 

960 DEFine Хилэн ЁО (x, y) 
970 BLOCK 100,100, x, y,0 

380 3:06; SO 

990 BLOCK 20,100,х,у,7 

1000 BLOC 20.100, +80, ¥,7 


НӨ i BLOC 


95% 20,Х,у980,7 
1020 END DEF:38 20 
1930 : 


1040 DEFine PRÜCedure EE(x,y) 
1030 BLOCK 20,20,x,y+20,7 
1080 BLOCK 20,20,x,y+40,7 
1070 xzx-B0 

1080 END DEFine EE 

1090 : 


m TRE ss йе C MUN 5, 


1100 DEFine PRüCedure SET ALARM 


1110 CLS:CSI2E 1,1 


1120 INPUT\\\" ENTREZ L'HEURE DE L'ALARME HH:MM 2"; R$ 


1130 PRINT\A\"  ETES-VOUS SUR: 


"Bäi ,,. ОК? ОИК" 


1140 IF NOT INKEYS(-1) INSTR "Q':60 TO 1110:END IF 


1150 CSIZE 0,0 


1150 END DEFine SET ALARM 
1170 : 


1180 DEFine PROCedure SET HOUR 


1190 CLS:CSIZE 1,1 


1200 INPUTV V" ENTREZ L'HEURE JUSTE HH: 05:89 


1210 QRE=W$(1 TO 21: MINGTIZW$(4 TO 5) 


1987,10,10, ORE, MINUTI,O 
1220 CSIZE 0,0 

1230 END DEFine 

1260 : 


1270 R$="" 

1280 INIT 

1290 F#="" 

1200 REFeat LOUP 

1310 х=20:у=80 

1520 E$=DATE$ 

1330 Е%-Е%(13 TO 17) 
1340 IF INKEYSZCHRS (235) 
1330 SET ALARM 

1360 60 TO 1280 

1370 END IF 

1380 IF INKEYSZCHRS (232) 
1390 SET HOUR 

1400 59 TO 1280 

1410 END IF 


1420 IF E$=R$ AND NOT BEEPING 


1430 ВЕЕР 5277, 13,2,13,2 
1440 END IF 

1450 IF E$-F$ 

1460 NEXT LOUP 

1470 END IF 


:5DATE 


1480 FOR 1-1 TO LEN(ES) 
1490 Р=С00Е (Е%(1)) 
1500 BEL ect ON P 


1510 =C0DE("0"):E5 х,у 
1520 zCODE("1" x,y 
1530 =С00Е ("2") :Е2 x,y 
1940 =CODE("3"):ES х,у 
1550 =CODE("4"):E8 х,у 
1560 zCODE("S")1ES х,у 
1570 =CODE("6"):E6 х,у 
1980 =С00Е ("7") :Е7 х,у 
1590 =С00Е ("8") ЕВ х,у 
1600 =С00Е ("9") :Е9 х,у 
1610 =С00Е(":"):ЕЕ х,у 


1620 END SELect 

1530 х=х+110 

1640 END FOR Í 

1650 F$-E$ 

1660 END REPeat LOOP 


es Logiciels de LA 


Les logiciels de Conception Assistée par Ordinateur pour le AL 
sont de plus en plus nombreux et en général ils sont bien faits 
et assez puissants, Mais chacun a ses points faibles et ses 
points forts. C'est pourquoi il est utile d'en posséder plus d'un 
si l'on veut arriver à produire ce que l'on souhaite, car souvent 
ils se complètent l'un l'autre. Ceci implique cependant que 165 
dessins produits soient facilement transportables d'un logiciel à 
l'autre, Hélas ce n'est pas toujours ie cas. 


Je déplorais depuis longtemps, par exemple, ce ne pouvoir insérer 
dans САЙРАК des graphiques produits avec GDRAW, alors que ia 
réciproque fonctionnait: on peut importer des dessins de ce 
logiciel dans ШАМЫ. Lorsque l'on travaille avec CADPAK, il est 
en effet impossible de charger un dessin venant d’ailleurs, Il 
&anque un certains nombre de barres horizontales et les 
microdrives tournent sans arrËt pour essayer de ies insérer, 
jusqu'à ce que l'on soit obligé de faire un "reset" pour arrêter 
ia machine, Même en ajoutant l'extension draw, rien n'y fait, 


En examinant la structure de l'écran srocuit par CADPAK, је 
voyais bien qu'une partie de l'écran est occupée par les 
différentes icones et fenêtres de connaries, де disait que ie 
dessin que je voulais importer dans CADPAK etait sans doute trop 
grand, ou prenait trop de mémoire pour i'escace disponible dans 
cet écran, 


23 
` 
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` 


š; 
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Je me préparais à écrire aux compagnies concernées pour savoir 
solutionner ce problème d’imconpatibilité entre deux bons 
logiciels, lorsque j'ai trouvé la solution aa hasard d'una 
lecture, 


H s'agit de réduire la dimension de son dessin en 18 
sauvegardant de la façon suivante: 


SBYTES adv2 filename,131072,25000 


25 K est la nouvelle dimension que CADPAK peut accepter alors que 
les écrans habituels nécessitent 32 К, Vous verrez que ce dessin 
un peu réduit est très bien accepté par votre progranne, ce qui 
vous donne accès à des échanges tris intéressante entre 
différents logiciels de CAO. 


ا — 


Dans un autre ordre 471088, il arrive quelquefois que l’on 
veuille voir ce qu'il y a sur un fichier de dessin sans avoir à 
charger au complet le logiciel sur lequel il a été congu. Du 
encore on ne se souvient pas toujours d’où il vient! Un petit 
truc très utile dans ce cas permet de le faire apparaitre 
directement à l'écran sans avoir à passer par le logiciel 
d'origine. 


П s'agit de faire en mode directe (sans numérotation бе lignes) 
ia commande suivante: 
LBYTES лбу! filename, 12811024 


Vous indiquez le numéro de microdrive gui vous convient, et 
"filename" est le nom sous legue! a été conservé voire dassin, 


Cette commande est trés simple et dans quelques seco^des elle 
vous permet de visualiser votre dessin à l'écran. Cette fonction 
est bonne pour toute "image", y compris ies pages procuites par 
SIGN DESIGNER et les "logos" des logiciels commerciaux. 


Louis Leclerc 
1094 Landry 
Ste-Foy  Guébec 
аз —— 

ТЕ: 653-0520 


se.  TRUC2058. . . . TRUC2088. . . . TRUC2058. . . . TRUC2058. . . . TRUC2058.... 


Nous avons dejà vu que pour avoir une ligne 0 sur le 2068 un seul 
POKE était nécessaire. Cette ligne 0 devenait impossible 4 
éditer. Се fameux POKE est POKE 25711,0. 


Ї est possible de faire d'autres effets spéciaux. Tapez ceci et 
faites LIST. 


10 (3 espaces? REM SIN MAGAZINE puis faites POKE 25714,22 
POKE 25715,0 
РОКЕ 25715,0 


22 étant le caractère de contrôle de AT, les 2 chiffres qui 
suivennt deviennent la coordonnée X,y de AT. Nous pouvons aettre 
autant de caractére que nous voulons en autant que nous réservons 
la place en insérant des espaces. 


|+. TRUCZ058, .. , TRUC2058. . . . TRUC2088, . . . TRUC2068. , . . TRUC2048, . . . 
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Dans cet article, nous allons voir cosment il est possible pour 
le QL de communiquer avec un autre ordinateur, en l'occurence un 
compatible PC, et ceci pour échanger des fichiers texte ou bien 
juste sour dialoguer via les ports R5222c. 


Avant toute chose, pour la communication, nous devons relier les 
2 ordinateurs, Sur le ШІ, nous avons 2 ports séries, appelié GERI 
et SER2, Comme nous l'avons vu dans le SIN #10, I'un est 
configuré en DCE et l'autre en DTE. Sur le PC, le port série est 
appellé COMi ou 0012, Ces ports sont toujours configurés en DTE. 
Pour faciliter la communication, nous allons relier SERI (DCE) à 
COMI (DTE), 


Sur le QL, le port série se présente sous la forme d'un 089 
femelie. Sur le PC, il s'agit habituellement d'un 0825 male. 
Notre gremière tâche consiste donc a fabriquer un cable pour 
relier ies 2 ordinateurs. Il nous faut un 089 màle еї un 0825 
femelle, Voici ies connections nécessaires, 


PC üL 

1825 089 (ser1) 
(out) Tu 2 (------------------- 32 Ту) (in) 
(in) RxD 3 <------------------- »3 RxD (out) 
(in) CTS 5 (------------------- »5 5 (out) 
(out) DIR 204------------------- » DTR (in) 

END 7 <------------------- УТ END 


i-Transfert DL -) PC 


Le point le plus important lors d'une communication entre 2 
ordinateurs est de s'assurer que les 2 utilisent la mêne vitesse 
et le même protocole. 


Pour la communication du GL vers le PC, je pense que le plus 
simple est d'envoyer notre fichier texte à partir de "0008" au 
РС, Sur le PC, nous utilisons un logiciel de communication, 


_ Ф 


-QL + CROSSTALK 


Avec CROSSTALK, nous devons donner le paramètres suivant 


SPeed 1200 
PArity none 
DATA H 

STop 2 

LF auto ON 


Bour Le Pürt, c'est soit (01 ou COM2. 


Nous allons en MODE LOCAL avec GO LOCAL, mais auparavant si n 
voulons garder l'information reçue nous devons faire Câoture ON, 


Puis sur ie QL, nous tapons: BAUD 1200 


COPY nom du fichier to SERtsiz 


Voilà sur l'écran de CROSSTALK, notre texte venant du 3L devrait 
apparaitre, Lorsque ia transmission est terminés, sur ROCHA 
on presse ESC puis Câoture OFF. 


-Qi -> PROCONM 


Les paramètres pour PRDCOMM sont: (АЕТ Р) 
Line settings 1200,5,8,2,20М1 
puis pour traduire les CR en CR/LF on fait ALT F3. Pour 
enregistrer notre communication on fait ALT Fi pour LOS QN. 


Sur le QL, nous tapons : BAUD 1200 
COPY nos du fichier to SERÍsic 


Pour terminer la réception, sur PROCOMM on fait ALT F1 pour 106 
OFF, 


—— M 


2-TRANGFERT PC -> QL 


Pour la communication dans le sens inverse, nous utiiiserons un 
logiciel de communication sur le QL, en l'occurence TERMINAL de 
ACODE. 
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ПІ”: TIRE | 


Le SUPERBASIC permet au prograsmeur une aéthode relativeaent 
facile d'ajouter des nouvelles cosmandes. Mais lorsqu'il s'agit 
d'utiliser ses fameuses comaandes, il est nécessaire de les 
charger. Cela peut prendre du temps. LINK BAS est un utilitaire 
qui peraet de joindre ces extensions en seul fichier réduisant 
ainsi le temps de chargeaent. 


Supposons que nous avons CAPS COM qui contient des coasandes pour 
settre le clavier en eode minuscule ou majuscule et PLEN COM qui 
est une fonction qui retourne la longueur d'un fichier, Nous 
avons besoin de ces cosaandes dans notre programme, LINK BAS 
joindra CAPS COM et PLEN COM en un seul fichier et rendra ainsi 
plus facile le chargement. 


ce programme utilise une extension appelée PLEN, COM qui retourne 
1a longueur d'un fichier. Vous pouvez obtenir ce programme 
G&ARTUITEMENT en envoyant à SIN un pdrive ou une disquette + $1.00 


pour les frais d'envoi. 


Le chargement de PLEN, COM est >? a*RESPR(400) 
LBYTES хккх PLEN COM, а 
CALL a 


Pour déterminer la longueur d'un fichier avec PLEN COM nous 
procédons de la manière suivante. Par exemple, nous cherchons ia 
longueur du fichier Zilpi lettre doc. 
1° OPENAS,f1pi lettre doc 
2% longueur _fichier#PLEN(#5) 
3° PRINT 'La longueur de 
fipi lettre doc est''longueur. 


fichier 


ааваа ت ت کے ت ت س‎ e e Зете 


100 REMark link bas v 1.0 

105 REMark par R.BAGNON Montréal 87 
106 REMark Logiciel de domaine public 
110 : 

120 load ext 

130 link rout 

140 : 


—— 


150 DEFine PROCedure link rout 

155 intro 

160 INPUT * Premier Fichier : “іргейіргі 
170 INPUT " Deuxiéae Fichier : ";deuxieae$ 
180 PRINT 

190 : 

200 OPEN#S,presiec$ 

210 long_pre=PLEN (#8) 

220 CLÜSESB 

230 PRINT * Longueur de"!preaier$\"® ->"!long_pre!"bytes." 
240 : 

250 ÜPENKB, deuxiene$ 

260 long deux-PLEN(48) 


270 CLOSERB 

280 PRINT * Longueur бе"! бецхіеве$\' -?'!long deux!"bytes, "A" 
Cospilation. *, 

290 : 

300 start link-RESPR(long pre*long deux*10) 

310 LBYTES preaier$,start link+10 

320 LBYTES deuxieme$,start link*long рген) 

۽ 330 

340 bsr 5517 

350 bsrz24832 

360 aoveq-28672 

370 rtsz20085 

380 : 

390 РОКЕ start link,bsr 5 ` 
400 РОКЕ start link*1,8 

310 — POKE W start links2,bsr 

420 PUKE W start _link+4,6+long pre 

450 РІКЕ ¥ start link*ó,anveq 

440 РОКЕ M start linkiB,rts 

450 PRINT “Тегвїлёв, 

460 PRINT X" Pour sauver, faites :* 

470 PRINT "SBYTES 

ХХХХ x1xx,";start 110837, *:{0+long preslong deux 

480 PRINT * Pour charger, faites :" 

490 PRINT “а-гезрг{"; 10+] олд pre*long deux;"):LBYTES 
#Kxx_Kxxx, a: CALL а" 

510 END DEFine 

320 : 


15 


16 


330 DEFine PROCedure intro 

540 WINDOW 512,235,0,0 

550 PAPER O:CLS 

360 PAPER 2:INK 7 

570 WINDOW 256, 159, 100, 50 

580 BORDER 1,94:CLS 

590 CSIZE 2,1: INK 49:PRINT ° — LINKER .. МС "ИСБПЕ 0,0: INK 
O:PRINT "А687" 

600 РЕНТА 

601 END DEFine 

М5: 

509 DEFine PRÜCedure load ext 

û10 a=RESPR(400):LBYTES flpi plen сов, а: САЦ. a 
620 END DEFine 


